home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 2 / Atari Mega Archive CD - Volume 2.iso / 8bit / cislib_a / change.dos < prev    next >
Text File  |  1995-04-22  |  981b  |  38 lines
  1. 10 REM  
  2. 20 REM CHANGE D:AUTORUN.SYS 
  3. 30 REM  
  4. 31 CLR  
  5. 35 DIM TEMP$(14),NAME$(14) 
  6. 40 PRINT CHR$(125):POKE 82,2 
  7. 50 PRINT "       CHANGE AUTORUN.SYS NAME ":PRINT  
  8. 100 START=5899 
  9. 110 FOR LOOP=1 TO 14 
  10. 120 DAT=PEEK(LOOP+START) 
  11. 130 TEMP$(LOOP)=CHR$(DAT) 
  12. 140 NEXT LOOP 
  13. 150 IF TEMP$(1,3)<>"D1:" THEN 1000 
  14. 160 PRINT "YOU MUST HAVE THE SAME LENGHT OR LESS" 
  15. 170 PRINT "AS D1:AUTORUN.SYS" 
  16. 180 PRINT  
  17. 190 PRINT "ENTER NAME - ";:INPUT NAME$ 
  18. 195 IF NAME$(1,1)<>"D" THEN PRINT "}":GOTO 190 
  19. 196 IF NAME$(2,2)<>":" AND NAME$(3,3)<>":" THEN PRINT "}":GOTO 190 
  20. 200 IF LEN(NAME$)<14 THEN NAME$(LEN(NAME$)+1)=" ":GOTO 200 
  21. 210 FOR LOOP=1 TO 14 
  22. 220 POKE START+LOOP,ASC(NAME$(LOOP,LOOP)) 
  23. 230 NEXT LOOP 
  24. 234 TRAP 244 
  25. 240 XIO 36,#1,0,0,"D:DOS.SYS" 
  26. 244 TRAP 254 
  27. 250 XIO 33,#1,0,0,"D:DOS.SYS" 
  28. 254 TRAP 1000 
  29. 260 OPEN #1,8,0,"D:DOS.SYS" 
  30. 270 CLOSE #1 
  31. 280 PRINT "COMPLETED" 
  32. 290 END  
  33. 1000 REM  
  34. 1010 REM CAN'T CHANGE WRONG DOS.SYS 
  35. 1020 REM  
  36. 1030 PRINT "}";"WRONG DOS FILE" 
  37. 1040 END  
  38.